inherited frmCadLanctoVacinas: TfrmCadLanctoVacinas
  Left = 248
  Top = 73
  Width = 929
  Height = 497
  Caption = 'Lan'#231'amento de Vacinas'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 921
    Height = 444
    ActivePage = tbsEdita
    ClientRectBottom = 439
    ClientRectRight = 916
    inherited tbsLista: TcxTabSheet
      inherited Grid: TcxGrid
        Width = 911
        Height = 394
        inherited GridDBBandedTableView2: TcxGridDBBandedTableView
          PopupMenu = PopupMenu1
          object GridDBBandedTableView2ID: TcxGridDBBandedColumn
            DataBinding.FieldName = 'ID'
            Position.BandIndex = 0
            Position.ColIndex = 0
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DESCRICAO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DESCRICAO'
            Position.BandIndex = 0
            Position.ColIndex = 1
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2PROPRIEDADE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'PROPRIEDADE'
            Position.BandIndex = 0
            Position.ColIndex = 2
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2CT13: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CT13'
            Position.BandIndex = 0
            Position.ColIndex = 3
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2QTDE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'QTDE'
            Position.BandIndex = 0
            Position.ColIndex = 4
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2CAMPANHA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CAMPANHA'
            Position.BandIndex = 0
            Position.ColIndex = 5
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2VACINA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'VACINA'
            Position.BandIndex = 0
            Position.ColIndex = 6
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2NOME_PROPRIEDADE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'NOME_PROPRIEDADE'
            Position.BandIndex = 0
            Position.ColIndex = 7
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2NOME_VACINA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'NOME_VACINA'
            Position.BandIndex = 0
            Position.ColIndex = 8
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DESCRICAO_CAMPANHA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DESCRICAO_CAMPANHA'
            Position.BandIndex = 0
            Position.ColIndex = 9
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DATA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DATA'
            Position.BandIndex = 0
            Position.ColIndex = 10
            Position.RowIndex = 0
          end
        end
      end
      inherited Panel1: TPanel
        Width = 911
      end
    end
    inherited tbsEdita: TcxTabSheet
      OnShow = tbsEditaShow
      inherited Panel2: TPanel
        Width = 911
        Height = 411
        object pnlSubCad: TPanel
          Left = 1
          Top = 172
          Width = 909
          Height = 238
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object PgcComplementar: TcxPageControl
            Left = 0
            Top = 0
            Width = 909
            Height = 238
            ActivePage = cxTabSheet1
            Align = alClient
            ShowFrame = True
            TabOrder = 0
            ClientRectBottom = 233
            ClientRectLeft = 5
            ClientRectRight = 904
            ClientRectTop = 28
            object cxTabSheet1: TcxTabSheet
              Caption = '  Nota Fiscal - Itens     '
              ImageIndex = 0
              object PGCSub1: TcxPageControl
                Left = 0
                Top = 0
                Width = 899
                Height = 205
                ActivePage = tbsEditaComp1
                Align = alClient
                HideTabs = True
                TabOrder = 0
                ClientRectBottom = 204
                ClientRectLeft = 1
                ClientRectRight = 898
                ClientRectTop = 1
                object tbsListaComp1: TcxTabSheet
                  Caption = 'Pesquisa'
                  ImageIndex = 0
                  OnEnter = tbsListaComp1Enter
                  object cxGrid1: TcxGrid
                    Left = 0
                    Top = 0
                    Width = 903
                    Height = 169
                    Align = alClient
                    TabOrder = 0
                    object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView
                      PopupMenu = PopupMenu1
                      OnKeyDown = GridDBBandedTableView2KeyDown
                      NavigatorButtons.ConfirmDelete = False
                      DataController.DataSource = dsPesquisaComp1
                      DataController.Summary.DefaultGroupSummaryItems = <>
                      DataController.Summary.FooterSummaryItems = <>
                      DataController.Summary.SummaryGroups = <>
                      OptionsBehavior.IncSearch = True
                      OptionsData.CancelOnExit = False
                      OptionsData.Deleting = False
                      OptionsData.DeletingConfirmation = False
                      OptionsData.Editing = False
                      OptionsData.Inserting = False
                      OptionsView.Footer = True
                      OptionsView.GroupByBox = False
                      OptionsView.GroupFooters = gfAlwaysVisible
                      OptionsView.BandHeaders = False
                      Bands = <
                        item
                        end>
                      object cxGrid1DBBandedTableView1CODIGO: TcxGridDBBandedColumn
                        DataBinding.FieldName = 'CODIGO'
                        Position.BandIndex = 0
                        Position.ColIndex = 0
                        Position.RowIndex = 0
                      end
                      object cxGrid1DBBandedTableView1PRODUTO: TcxGridDBBandedColumn
                        DataBinding.FieldName = 'PRODUTO'
                        Position.BandIndex = 0
                        Position.ColIndex = 1
                        Position.RowIndex = 0
                      end
                      object cxGrid1DBBandedTableView1VACINA: TcxGridDBBandedColumn
                        DataBinding.FieldName = 'VACINA'
                        Position.BandIndex = 0
                        Position.ColIndex = 2
                        Position.RowIndex = 0
                      end
                      object cxGrid1DBBandedTableView1QTDE: TcxGridDBBandedColumn
                        DataBinding.FieldName = 'QTDE'
                        Position.BandIndex = 0
                        Position.ColIndex = 3
                        Position.RowIndex = 0
                      end
                      object cxGrid1DBBandedTableView1NOME_PRODUTO: TcxGridDBBandedColumn
                        DataBinding.FieldName = 'NOME_PRODUTO'
                        Width = 272
                        Position.BandIndex = 0
                        Position.ColIndex = 4
                        Position.RowIndex = 0
                      end
                    end
                    object cxGridLevel1: TcxGridLevel
                      GridView = cxGrid1DBBandedTableView1
                    end
                  end
                end
                object tbsEditaComp1: TcxTabSheet
                  Caption = 'Registro'
                  ImageIndex = 1
                  OnEnter = tbsEditaComp1Enter
                  object edtCodigoEnd: TcxDBTextEdit
                    Left = 9
                    Top = 24
                    TabStop = False
                    DataBinding.DataField = 'CODIGO'
                    DataBinding.DataSource = dsRegistroComp1
                    Properties.CharCase = ecUpperCase
                    Properties.ReadOnly = True
                    Style.Color = clInactiveBorder
                    TabOrder = 0
                    Width = 65
                  end
                  object cxLabel8: TcxLabel
                    Left = 8
                    Top = 8
                    Caption = 'C'#243'digo'
                    Transparent = True
                  end
                  object cbProduto: TcxDBLookupComboBox
                    Left = 74
                    Top = 24
                    DataBinding.DataField = 'PRODUTO'
                    DataBinding.DataSource = dsRegistroComp1
                    Properties.CharCase = ecUpperCase
                    Properties.DropDownAutoSize = True
                    Properties.KeyFieldNames = 'CODIGO'
                    Properties.ListColumns = <
                      item
                        FieldName = 'NOME'
                      end
                      item
                        FieldName = 'CODIGO'
                      end>
                    Properties.ListSource = dsProdutos
                    TabOrder = 1
                    Width = 375
                  end
                  object cxLabel9: TcxLabel
                    Left = 72
                    Top = 8
                    Caption = 'Categoria'
                    Transparent = True
                  end
                  object btnProduto: TcxButtonEdit
                    Left = 448
                    Top = 24
                    TabStop = False
                    Properties.Buttons = <
                      item
                        Caption = 'F9'
                        Default = True
                        Kind = bkText
                      end>
                    Properties.ViewStyle = vsButtonsOnly
                    TabOrder = 5
                    Text = 'btnProduto'
                    OnClick = btnProdutoClick
                    Width = 25
                  end
                  object cxDBCalcEdit7: TcxDBCalcEdit
                    Left = 474
                    Top = 24
                    DataBinding.DataField = 'QTDE'
                    DataBinding.DataSource = dsRegistroComp1
                    Style.LookAndFeel.Kind = lfOffice11
                    Style.ButtonStyle = btsFlat
                    StyleDisabled.LookAndFeel.Kind = lfOffice11
                    StyleFocused.LookAndFeel.Kind = lfOffice11
                    StyleHot.LookAndFeel.Kind = lfOffice11
                    TabOrder = 2
                    Width = 103
                  end
                  object cxLabel11: TcxLabel
                    Left = 472
                    Top = 8
                    Caption = 'Qtde Cabe'#231'as'
                    Transparent = True
                  end
                end
              end
            end
          end
        end
        object pnlLancto: TPanel
          Left = 1
          Top = 1
          Width = 909
          Height = 171
          Align = alTop
          BevelOuter = bvNone
          PopupMenu = PopupMenu1
          TabOrder = 0
          OnEnter = pnlLanctoEnter
          object cxDBCalcEdit1: TcxDBCalcEdit
            Left = 346
            Top = 72
            DataBinding.DataField = 'QTDE'
            DataBinding.DataSource = dsRegistro
            Style.LookAndFeel.Kind = lfOffice11
            Style.ButtonStyle = btsFlat
            StyleDisabled.LookAndFeel.Kind = lfOffice11
            StyleFocused.LookAndFeel.Kind = lfOffice11
            StyleHot.LookAndFeel.Kind = lfOffice11
            TabOrder = 4
            Width = 121
          end
          object cxLabel3: TcxLabel
            Left = 346
            Top = 56
            Caption = 'Qtde Dose'
            Transparent = True
          end
          object cxLabel6: TcxLabel
            Left = 65
            Top = 13
            Caption = 'Propriedade'
            Transparent = True
          end
          object edtCodigo: TcxDBTextEdit
            Left = 8
            Top = 29
            TabStop = False
            DataBinding.DataField = 'CODIGO'
            DataBinding.DataSource = dsRegistro
            Properties.ReadOnly = True
            Style.Color = clInactiveBorder
            TabOrder = 0
            Width = 58
          end
          object cxLabel1: TcxLabel
            Left = 8
            Top = 12
            Caption = 'C'#243'digo'
            Transparent = True
          end
          object cxDBDateEdit2: TcxDBDateEdit
            Left = 9
            Top = 114
            DataBinding.DataField = 'DATA'
            DataBinding.DataSource = dsRegistro
            TabOrder = 7
            Width = 97
          end
          object cxLabel17: TcxLabel
            Left = 9
            Top = 97
            Caption = 'Dt. Recebimento'
            Transparent = True
          end
          object btnPropriedade: TcxButtonEdit
            Left = 439
            Top = 29
            TabStop = False
            Properties.Buttons = <
              item
                Caption = 'F9'
                Default = True
                Kind = bkText
              end>
            Properties.ViewStyle = vsButtonsOnly
            TabOrder = 9
            Text = 'btnLogradouro'
            OnClick = btnPropriedadeClick
            Width = 25
          end
          object cbPropriedade: TcxDBLookupComboBox
            Left = 66
            Top = 29
            DataBinding.DataField = 'PROPRIEDADE'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            Properties.KeyFieldNames = 'CODIGO'
            Properties.ListColumns = <
              item
                FieldName = 'NOME'
              end>
            Properties.ListSource = dsPropriedade
            TabOrder = 1
            Width = 375
          end
          object btnVacina: TcxButtonEdit
            Left = 319
            Top = 72
            TabStop = False
            Properties.Buttons = <
              item
                Caption = 'F9'
                Default = True
                Kind = bkText
              end>
            Properties.ViewStyle = vsButtonsOnly
            TabOrder = 14
            Text = 'btnProduto'
            OnClick = btnVacinaClick
            Width = 25
          end
          object cbVacina: TcxDBLookupComboBox
            Left = 9
            Top = 72
            DataBinding.DataField = 'VACINA'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            Properties.DropDownAutoSize = True
            Properties.KeyFieldNames = 'CODIGO'
            Properties.ListColumns = <
              item
                FieldName = 'NOME'
              end
              item
                FieldName = 'CODIGO'
              end>
            Properties.ListSource = dsVacinas
            TabOrder = 3
            Width = 313
          end
          object cxLabel2: TcxLabel
            Left = 9
            Top = 56
            Caption = 'Vacina'
            Transparent = True
          end
          object btnCampanha: TcxButtonEdit
            Left = 801
            Top = 28
            TabStop = False
            Properties.Buttons = <
              item
                Caption = 'F9'
                Default = True
                Kind = bkText
              end>
            Properties.ViewStyle = vsButtonsOnly
            TabOrder = 16
            Text = 'btnProduto'
            OnClick = btnCampanhaClick
            Width = 25
          end
          object cbCampanha: TcxDBLookupComboBox
            Left = 467
            Top = 28
            DataBinding.DataField = 'CAMPANHA'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            Properties.DropDownAutoSize = True
            Properties.KeyFieldNames = 'CODIGO'
            Properties.ListColumns = <
              item
                FieldName = 'SIGLA'
              end
              item
                FieldName = 'DESCRICAO'
              end>
            Properties.ListSource = dsCampanha
            TabOrder = 2
            Width = 336
          end
          object cxLabel4: TcxLabel
            Left = 467
            Top = 12
            Caption = 'Campanha'
            Transparent = True
          end
          object cxDBTextEdit3: TcxDBTextEdit
            Left = 469
            Top = 72
            DataBinding.DataField = 'CT13'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            TabOrder = 5
            Width = 68
          end
          object cxLabel5: TcxLabel
            Left = 469
            Top = 56
            Caption = 'CT13'
            Transparent = True
          end
          object cxDBTextEdit1: TcxDBTextEdit
            Left = 539
            Top = 72
            DataBinding.DataField = 'DESCRICAO'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            TabOrder = 6
            Width = 290
          end
          object cxLabel20: TcxLabel
            Left = 539
            Top = 56
            Caption = 'Descri'#231#227'o'
            Transparent = True
          end
          object cxDBDateEdit1: TcxDBDateEdit
            Left = 111
            Top = 113
            DataBinding.DataField = 'DATA'
            DataBinding.DataSource = dsRegistro
            TabOrder = 8
            Width = 105
          end
          object cxLabel7: TcxLabel
            Left = 111
            Top = 98
            Caption = 'Dt. Aplica'#231#227'o'
            Transparent = True
          end
        end
      end
    end
  end
  inherited dsPesquisa: TDataSource
    Left = 744
    Top = 268
  end
  inherited dsRegistro: TDataSource
    Left = 792
    Top = 268
  end
  inherited dtEdit: TIBDataSet
    OnNewRecord = dtEditNewRecord
    DeleteSQL.Strings = (
      'delete from vacinas'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into vacinas'
      
        '  (CAMPANHA, CODIGO, CT13, DATA, DATA_RECEBIMENTO, DESCRICAO, PR' +
        'OPRIEDADE, '
      '   QTDE, VACINA)'
      'values'
      
        '  (:CAMPANHA, :CODIGO, :CT13, :DATA, :DATA_RECEBIMENTO, :DESCRIC' +
        'AO, :PROPRIEDADE, '
      '   :QTDE, :VACINA)')
    RefreshSQL.Strings = (
      'Select * '
      'from vacinas '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select * from vacinas v'
      'where v.codigo = :codigo')
    ModifySQL.Strings = (
      'update vacinas'
      'set'
      '  CAMPANHA = :CAMPANHA,'
      '  CODIGO = :CODIGO,'
      '  CT13 = :CT13,'
      '  DATA = :DATA,'
      '  DATA_RECEBIMENTO = :DATA_RECEBIMENTO,'
      '  DESCRICAO = :DESCRICAO,'
      '  PROPRIEDADE = :PROPRIEDADE,'
      '  QTDE = :QTDE,'
      '  VACINA = :VACINA'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_NOTA_FISCAL_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 792
    Top = 228
    object dtEditDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = '"VACINAS"."DESCRICAO"'
      Size = 50
    end
    object dtEditPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"VACINAS"."PROPRIEDADE"'
    end
    object dtEditCT13: TIBStringField
      FieldName = 'CT13'
      Origin = '"VACINAS"."CT13"'
    end
    object dtEditQTDE: TIntegerField
      FieldName = 'QTDE'
      Origin = '"VACINAS"."QTDE"'
    end
    object dtEditCAMPANHA: TIntegerField
      FieldName = 'CAMPANHA'
      Origin = '"VACINAS"."CAMPANHA"'
    end
    object dtEditVACINA: TIntegerField
      FieldName = 'VACINA'
      Origin = '"VACINAS"."VACINA"'
    end
    object dtEditDATA: TDateField
      FieldName = 'DATA'
      Origin = '"VACINAS"."DATA"'
    end
    object dtEditCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"VACINAS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtEditDATA_RECEBIMENTO: TDateField
      FieldName = 'DATA_RECEBIMENTO'
      Origin = '"VACINAS"."DATA_RECEBIMENTO"'
    end
  end
  inherited dtList: TIBQuery
    SQL.Strings = (
      
        'select v.*, pp.nome nome_propriedade, p.nome nome_vacina, c.desc' +
        'ricao descricao_campanha from vacinas v'
      'inner join propriedade pp on (pp.codigo = v.propriedade)'
      'inner join produtos p on (p.codigo = v.vacina)'
      'inner join campanhas c on (c.codigo = v.campanha)')
    Left = 744
    Top = 228
    object dtListDESCRICAO: TIBStringField
      DisplayLabel = 'Descri'#231#227'o'
      FieldName = 'DESCRICAO'
      Origin = '"VACINAS"."DESCRICAO"'
      Size = 50
    end
    object dtListPROPRIEDADE: TIntegerField
      DisplayLabel = 'C'#243'd. Propriedade'
      FieldName = 'PROPRIEDADE'
      Origin = '"VACINAS"."PROPRIEDADE"'
    end
    object dtListCT13: TIBStringField
      FieldName = 'CT13'
      Origin = '"VACINAS"."CT13"'
    end
    object dtListQTDE: TIntegerField
      DisplayLabel = 'Qtde'
      FieldName = 'QTDE'
      Origin = '"VACINAS"."QTDE"'
    end
    object dtListCAMPANHA: TIntegerField
      DisplayLabel = 'C'#243'd. Campanha'
      FieldName = 'CAMPANHA'
      Origin = '"VACINAS"."CAMPANHA"'
    end
    object dtListVACINA: TIntegerField
      DisplayLabel = 'C'#243'd. Vacina'
      FieldName = 'VACINA'
      Origin = '"VACINAS"."VACINA"'
    end
    object dtListNOME_PROPRIEDADE: TIBStringField
      DisplayLabel = 'Propriedade'
      FieldName = 'NOME_PROPRIEDADE'
      Origin = '"PROPRIEDADE"."NOME"'
      Size = 50
    end
    object dtListNOME_VACINA: TIBStringField
      DisplayLabel = 'Vacina'
      FieldName = 'NOME_VACINA'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
    object dtListDESCRICAO_CAMPANHA: TIBStringField
      DisplayLabel = 'Campanha'
      FieldName = 'DESCRICAO_CAMPANHA'
      Origin = '"CAMPANHAS"."DESCRICAO"'
      Size = 50
    end
    object dtListDATA: TDateField
      DisplayLabel = 'Data'
      FieldName = 'DATA'
      Origin = '"VACINAS"."DATA"'
    end
    object dtListCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"VACINAS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    Left = 464
    Top = 504
    DockControlHeights = (
      0
      0
      0
      26)
  end
  inherited ActionList1: TActionList
    Left = 264
    Top = 224
    inherited ActCadLookup: TAction
      OnExecute = ActCadLookupExecute
    end
    object ActFecharNF: TAction
      Caption = 'Fechar Nota Fiscal'
    end
  end
  inherited dsLink: TDataSource
    Left = 760
    Top = 300
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
    DesignInfo = 33030864
  end
  inherited dxBarDBNavigator1: TdxBarDBNavigator
    Left = 432
    Top = 504
  end
  inherited GridPopupMenu: TcxGridPopupMenu
    Left = 584
    Top = 480
  end
  inherited SaveDialog: TSaveDialog
    Left = 496
    Top = 504
  end
  inherited ACBrEnterTab1: TACBrEnterTab
    Left = 752
    Top = 504
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Components = <
      item
        Component = cxGrid1
        Properties.Strings = (
          'Align'
          'Anchors'
          'BevelEdges'
          'BevelInner'
          'BevelKind'
          'BevelOuter'
          'BevelWidth'
          'BorderStyle'
          'BorderWidth'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'DragOpening'
          'DragOpeningWaitTime'
          'Enabled'
          'Font'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'Left'
          'LevelTabs'
          'LookAndFeel'
          'Name'
          'ParentFont'
          'PopupMenu'
          'RootLevelOptions'
          'RootLevelStyles'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = cxGrid1DBBandedTableView1
        Properties.Strings = (
          'BackgroundBitmaps'
          'Bands'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end>
    Left = 560
    Top = 504
  end
  inherited cxIntl1: TcxIntl
    Left = 648
    Top = 92
  end
  object lstPropriedade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      
        'select pp.codigo, coalesce(pp.insc_estadual,'#39#39')||'#39' ( '#39'||coalesce' +
        '(pp.nome,'#39#39')||'#39' )'#39' nome from propriedade pp'
      ''
      '')
    Left = 704
    Top = 432
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 75
    end
  end
  object lstProdutos: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from produtos'
      'where ordem_dap_pec is not null'
      '')
    Left = 608
    Top = 434
    object lstProdutosCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTOS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstProdutosNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
    object lstProdutosGRUPO: TIntegerField
      FieldName = 'GRUPO'
      Origin = '"PRODUTOS"."GRUPO"'
    end
    object lstProdutosUNIDADE: TIntegerField
      FieldName = 'UNIDADE'
      Origin = '"PRODUTOS"."UNIDADE"'
    end
    object lstProdutosVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = '"PRODUTOS"."VALOR"'
    end
    object lstProdutosATIVO: TIBStringField
      FieldName = 'ATIVO'
      Origin = '"PRODUTOS"."ATIVO"'
      FixedChar = True
      Size = 1
    end
    object lstProdutosTIPO: TIBStringField
      FieldName = 'TIPO'
      Origin = '"PRODUTOS"."TIPO"'
      FixedChar = True
      Size = 1
    end
    object lstProdutosEXPORTA_DAP: TIBStringField
      FieldName = 'EXPORTA_DAP'
      Origin = '"PRODUTOS"."EXPORTA_DAP"'
      FixedChar = True
      Size = 1
    end
    object lstProdutosINSUMOS: TIBStringField
      FieldName = 'INSUMOS'
      Origin = '"PRODUTOS"."INSUMOS"'
      FixedChar = True
      Size = 1
    end
    object lstProdutosTIPO_INSUMO: TIBStringField
      FieldName = 'TIPO_INSUMO'
      Origin = '"PRODUTOS"."TIPO_INSUMO"'
      FixedChar = True
      Size = 1
    end
    object lstProdutosORDEM_DAP_PEC: TIntegerField
      FieldName = 'ORDEM_DAP_PEC'
      Origin = '"PRODUTOS"."ORDEM_DAP_PEC"'
    end
    object lstProdutosOUTROS_ANIMAIS: TIBStringField
      FieldName = 'OUTROS_ANIMAIS'
      Origin = '"PRODUTOS"."OUTROS_ANIMAIS"'
      FixedChar = True
      Size = 1
    end
  end
  object lstParametro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstParametroBeforeOpen
    SQL.Strings = (
      'select * from parametros p'
      'where p.usuario = :usuario')
    Left = 576
    Top = 434
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'usuario'
        ParamType = ptUnknown
      end>
    object lstParametroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PARAMETROS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstParametroUSUARIO: TIntegerField
      FieldName = 'USUARIO'
      Origin = '"PARAMETROS"."USUARIO"'
    end
    object lstParametroDATA_MOVTO: TDateField
      FieldName = 'DATA_MOVTO'
      Origin = '"PARAMETROS"."DATA_MOVTO"'
    end
    object lstParametroOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
      Origin = '"PARAMETROS"."OPERACAO"'
    end
    object lstParametroPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      Origin = '"PARAMETROS"."PRODUTOR"'
    end
    object lstParametroTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
      Origin = '"PARAMETROS"."TERCEIRO"'
    end
    object lstParametroPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"PARAMETROS"."PROPRIEDADE"'
    end
    object lstParametroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PARAMETROS"."PRODUTO"'
    end
    object lstParametroANO_BASE: TIntegerField
      FieldName = 'ANO_BASE'
      Origin = '"PARAMETROS"."ANO_BASE"'
    end
    object lstParametroAGR_LST_PRD_DAC: TIBStringField
      FieldName = 'AGR_LST_PRD_DAC'
      Origin = '"PARAMETROS"."AGR_LST_PRD_DAC"'
      FixedChar = True
      Size = 1
    end
  end
  object DataSource1: TDataSource
    Left = 688
    Top = 392
  end
  object dsPesquisaComp1: TDataSource
    DataSet = dtListVacinasItens
    Left = 488
    Top = 472
  end
  object dtVacinasItens: TIBDataSet
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeInsert = dtVacinasItensBeforeInsert
    BeforePost = dtVacinasItensBeforePost
    DeleteSQL.Strings = (
      'delete from vacinas_itens'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into vacinas_itens'
      '  (CODIGO, PRODUTO, QTDE, VACINA)'
      'values'
      '  (:CODIGO, :PRODUTO, :QTDE, :VACINA)')
    RefreshSQL.Strings = (
      'Select * '
      'from vacinas_itens '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select vci.* from vacinas_itens vci'
      'where vci.codigo = :codigo')
    ModifySQL.Strings = (
      'update vacinas_itens'
      'set'
      '  CODIGO = :CODIGO,'
      '  PRODUTO = :PRODUTO,'
      '  QTDE = :QTDE,'
      '  VACINA = :VACINA'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_VACINAS_ITENS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    DataSource = dsLinkNFs
    Left = 520
    Top = 440
    object dtVacinasItensCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"VACINAS_ITENS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtVacinasItensPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"VACINAS_ITENS"."PRODUTO"'
    end
    object dtVacinasItensVACINA: TIntegerField
      FieldName = 'VACINA'
      Origin = '"VACINAS_ITENS"."VACINA"'
    end
    object dtVacinasItensQTDE: TIBBCDField
      FieldName = 'QTDE'
      Origin = '"VACINAS_ITENS"."QTDE"'
      Precision = 18
      Size = 4
    end
  end
  object dsProdutos: TDataSource
    DataSet = lstProdutos
    Left = 608
    Top = 464
  end
  object cxGridPopupMenu1: TcxGridPopupMenu
    Grid = cxGrid1
    PopupMenus = <
      item
        HitTypes = [gvhtCell, gvhtRecord, gvhtRowIndicator]
        Index = 0
      end>
    Left = 584
    Top = 536
  end
  object dsRegistroComp1: TDataSource
    DataSet = dtVacinasItens
    Left = 520
    Top = 472
  end
  object dsLinkNFs: TDataSource
    DataSet = dtListVacinasItens
    Left = 504
    Top = 404
  end
  object dtListVacinasItens: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    DataSource = dsRegistro
    SQL.Strings = (
      'select vci.*, p.nome nome_produto from vacinas_itens vci'
      'inner join produtos p on (p.codigo = vci.produto)'
      'where vci.vacina = :codigo')
    Left = 488
    Top = 440
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
    object dtListVacinasItensPRODUTO: TIntegerField
      DisplayLabel = 'C'#243'd. Vacina'
      FieldName = 'PRODUTO'
      Origin = '"VACINAS_ITENS"."PRODUTO"'
    end
    object dtListVacinasItensVACINA: TIntegerField
      DisplayLabel = 'C'#243'd. Lancto Vacina'
      FieldName = 'VACINA'
      Origin = '"VACINAS_ITENS"."VACINA"'
    end
    object dtListVacinasItensQTDE: TIBBCDField
      DisplayLabel = 'Qtde'
      FieldName = 'QTDE'
      Origin = '"VACINAS_ITENS"."QTDE"'
      Precision = 18
      Size = 4
    end
    object dtListVacinasItensNOME_PRODUTO: TIBStringField
      DisplayLabel = 'Vacina'
      FieldName = 'NOME_PRODUTO'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
    object dtListVacinasItensCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"VACINAS_ITENS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object dsPropriedade: TDataSource
    DataSet = lstPropriedade
    Left = 704
    Top = 464
  end
  object PopupMenu1: TPopupMenu
    Left = 312
    Top = 220
    object FecharTransportedeEra1: TMenuItem
      Action = ActFecharNF
      Caption = 'Fechar Lancto Vacina'
    end
    object EstornarTransportedeEra1: TMenuItem
      Caption = 'Estornar Lancto Vacina'
    end
  end
  object dsVacinas: TDataSource
    DataSet = lstVacinas
    Left = 368
    Top = 472
  end
  object lstVacinas: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select * from produtos'
      'where coalesce(tipo,'#39#39') = '#39'P'#39
      '')
    Left = 368
    Top = 442
    object IntegerField1: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTOS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBStringField1: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTOS"."NOME"'
      Size = 50
    end
    object IntegerField2: TIntegerField
      FieldName = 'GRUPO'
      Origin = '"PRODUTOS"."GRUPO"'
    end
    object IntegerField3: TIntegerField
      FieldName = 'UNIDADE'
      Origin = '"PRODUTOS"."UNIDADE"'
    end
    object FloatField1: TFloatField
      FieldName = 'VALOR'
      Origin = '"PRODUTOS"."VALOR"'
    end
    object IBStringField2: TIBStringField
      FieldName = 'ATIVO'
      Origin = '"PRODUTOS"."ATIVO"'
      FixedChar = True
      Size = 1
    end
    object IBStringField3: TIBStringField
      FieldName = 'TIPO'
      Origin = '"PRODUTOS"."TIPO"'
      FixedChar = True
      Size = 1
    end
    object IBStringField4: TIBStringField
      FieldName = 'EXPORTA_DAP'
      Origin = '"PRODUTOS"."EXPORTA_DAP"'
      FixedChar = True
      Size = 1
    end
    object IBStringField5: TIBStringField
      FieldName = 'INSUMOS'
      Origin = '"PRODUTOS"."INSUMOS"'
      FixedChar = True
      Size = 1
    end
  end
  object lstCampanha: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select c.* from campanhas c')
    Left = 736
    Top = 432
    object lstCampanhaCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"CAMPANHAS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstCampanhaDESCRICAO: TIBStringField
      FieldName = 'DESCRICAO'
      Origin = '"CAMPANHAS"."DESCRICAO"'
      Size = 50
    end
    object lstCampanhaSIGLA: TIBStringField
      FieldName = 'SIGLA'
      Origin = '"CAMPANHAS"."SIGLA"'
    end
  end
  object dsCampanha: TDataSource
    DataSet = lstCampanha
    Left = 736
    Top = 464
  end
end
